MASSACHUSETTS IKSTnOTK OF TECHNOLOGY 

Project X\C 

Artificial loteliigcmM Project MSffiOrfin&m HMMf-241 

79— June 1> 1965 

P Dg -6 MSP ^ I fi pufc-flutg ut. for tbe .^jffpjiqne 
by Wiiltara A, Martin 

ABSTRACT 



A version of LISP 1.5 for Cho PbF-6 Computer hM been 
extended to include 10 tfu'ough tfc* <tetophOTC. Thia mckea 
possible comrAinication between progrms ntrning *& Project 
MAC tlna fihariiic rnd l-It>P progkvos rumtlng on che PDP-6. 
The method of h cabling Cnput-output for thp datapbone i» 
similar to thet for the tjrpwrlUr, paper (ape punch, an<3 
prp&r tape reader* Three usctul LISP function* are presented 
da exdttples of <?£t£phone progr^TrainS- 
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TUe dccaphone gentvatea in sequence break aode, requesting 
aewice each eilliieetond* It must be turned on and oft with 
ti;e LISP function oj>; however, when it is running* input end 
output to It ere handled ia the same maimer as to the telftty^d, 
paper tepe reader, and papar tape punch- 'The dotoptaono is 
controlled by tiia control characters: 

A Write on detephone. 

C i)o not wiite on dctapttoae.. 

D Ren£ frost d£t£phor*e T 

£ Do not read froo detephone. 

Control characters can ba typed fron the teletype or executed 
with the function fittar. Since CTSS truncates lines longer 
than 72 characters, a carriage return is Inserted tthencyc.* 72 
characters haw been output to the d£tepfcone since the l*.st 
carriage return- IS the user sends the ASCII character °/o 
through the detephone progress it trill be sent as the CTSS in- 
terrupt character* There are several LISP function* written in 
machine lengunge which are useful for datephoae programming: 
dp (%) If x ia NIL the dataphono 1? turned 

off; otheraiee it ib turned en and 
initialised.. 

dpd <x) The value of dpd (x) is a f l/ig for 

character* in sha dataphone input 
buffer* If x la SXL, dpd returns 311- 
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if there are no characters; other* 
wise, it waite until acrae arrive. 
When cliarnctors art received chia 
function returns & Xlat of the mods 
of tha characters end tlm rubber of 
characters* The ;aodc is a nunbav d&- 
teralned by the inter. Choracfcoca 
sent froca CTSS in the name amuicr as 
to a noma! console are ttflgMd mode 
1, 

ttyd { ) Keturn* the mnber of character* In 

the teletype input buffer or NIL if 
thcra ar* noo*. 

cchar (x) Executes the louar com ASCII charsctRr 

x as a control character, 

£o ^;-,: 1 ; 1 ; Liflh communication tritb CESS, turn on the data- 
phone by executing dp (T). Then execute ctsa I > and type S 
followed by a spjtce* The teletype can not* be iiMd as a CTSS 
console* Several u^efui fe^tuxes of the MSP functions etna, 
j}!S£&%* M ^ fJJfflEfiftji flre deftcribed belov* LZfiP expreafllons for 
these functions ar* at the ei\d of the aonOi 

dprefid ( ) Thia function waits until there id 

input frcu the dat&phone. I £ then 
prints the characters on tin* teletype 
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oic by one, X£ it receives $, it 
doea not print ubi* p but iogcoad 
Evaluates the S-axprdBSiou which 
follows* 

dpurite (*;y> &?SKi££ takes tuo forms of Input, 

ie y la NIL df pn ritc assumes that x 
in a Hsfc of litocis and eenda over the* 
dataphone the characters la the W14MES 
o£ these atotis, with a apace bettfoem 
e^ch PHAHS. Othenjiee It »*iis x 34 
4»i S~expression. 

etas ( ) £ c *i5 *H^« ! the uflcr to operate tho 

PDP-6 ab a CTSS console- Thcra are 
two Godee; local aud send- ctpft is 
initially in local raodo. In ^hi* nsodca 
ic accepts S-exprasaioo* for eygl hut 
Hatches for the singl* atom S-expraefliotio 
S, STOP* find L. IC it finds S it go*s 
into eeud modo, li it finde STOP it 
tcnalnaMo returning NIL* If it find* 

h it sends over the dataphora thu etm 
S"£:£p::eflsions which are typed next, 
bcit etcya In local mods. In nand aodr 
it sends characters one by one uhile 
ustching for (a> aod 4£. (a) "imraa *t 
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to loc&l csode* If It see* 4^ it Mario 
fcbc evalwitloa oi T the S-exprfleslon 
which follows md then types #F - 
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(DSPLIST ({CISS (LA&BOA NIL (KtOG (U V) A (COHD (CTIYD HIL) (GO 
B)> ((DPD HIL) (DPREAD))) (GO A) 11 (SSTQ B (ItEAD)) CtSSPRX) (COM 
D ({EQUAL (QUOTE $)> (GO C)) ((.'EQUAL U (QUOTE SSOP)) (SETURH H 
n.)) ((EQUAL U (QUOTE L» (FROG? (DPI/HITS (READ) T) (DWRXXE (RE 

ao) t)» ci (prtht (eval o mil)))} e (T£rpri) (go a) c <cohd «d 

PD HIL) (OPRKAD» ({TT¥D HIL) (GO D)» (GO C) D (SETQ U CREftDCR) 
) (COHD ((EQUAL If 0) (GO E)) ((EQUAL U #(C0 G))) (CC8AR (QUOTi: 
A» (CCHAR {QUOTE H)) (PRIHX U) (CCHAR (QUOTE «) (CC11AR (QUOTE 
V» (GO C) G (DStmiTK (BVAL (READ) (CDR ALIST)) *) (PRiHI #> (fl 
C))))) EXPR) 

(DEPLIS? ({DSWIITB (UMBO* (X T) (PROG (U) <CCEAB (QUOTE A)) (CC 
KAR (QUOTE «)) (COHD ff (CO C))) (SETQ U X) A (COSD ((HULL U) (G 
B))) (PRE1I (OAR U)) C*RXNI BIJWK) (SETQ U (CpR U)) (GO A) C ( 
PSIBT X) B (T2RPRI) (CCSAR (QUOTE C)) (CCHB (QUOTB V» (RBTURK 
MIL})))) SXPR) 

(DEFLXST ((DPRe&D (LAMBDA HIL (PROG (U V) (SETQ U (DPD T)) (CCBA 
R (QUOJE D)) A {SBTQ U <CA0R U)) & (COHD ((ZERO? U) (GO C))) (SE 
2Q V 0UUDCB)) iCOND (iEQUAL V S) (CO D))) (PRIHI V) (SETQ U (PL 
U3 U 607W47673S)) (GO B) D (X1TRPRI) CBVAL (READ) HIL) C (CCHAR 

(QUOTE E)> (RETURII HIL))))) EXP5) 



